home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / linkobj.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  4KB  |  181 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    LinkObject_c
  18. #define    ivType    LinkObject_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    LinkObject_c;
  23.  
  24.  
  25. #line 19 "linkobj.d"
  26. #define FIRST gNext 
  27. #define LAST gPrevious 
  28.  
  29. cvmeth objrtn LinkObject_cvm_vMakeList(object self, va_list _rest_)
  30. { 
  31.     object lst, obj; 
  32.     MAKE_REST(self); 
  33.  
  34.     lst = gNew(self); 
  35.     while (obj = GetArg(object)) 
  36.         gAddBefore(lst, gNewWithObj(LinkValue, obj)); 
  37.     return lst; 
  38. } 
  39.  
  40. #line 41 "linkobj.c"
  41.  
  42. static    objrtn    LinkObject_cfm_vMakeList(object self, ...)
  43. {
  44.     va_list    _rest_;
  45.     va_start(_rest_, self);
  46.     return LinkObject_cvm_vMakeList(self, _rest_);
  47. }
  48.  
  49.  
  50.  
  51. #line 33 "linkobj.d"
  52. ivmeth objrtn LinkObject_ivm_vGetValues(object self, va_list _rest_)
  53. { 
  54.     object *var, seq, obj; 
  55.     MAKE_REST(self); 
  56.  
  57.     seq = gSequence(self); 
  58.     obj = gNext(seq); 
  59.     while (var = GetArg(object *)) { 
  60.         *var = obj; 
  61.         if (obj) 
  62.             obj = gNext(seq); 
  63.     } 
  64.     if (obj) 
  65.         gDispose(seq); 
  66.     return self; 
  67. } 
  68.  
  69. #line 70 "linkobj.c"
  70.  
  71. static    objrtn    LinkObject_ifm_vGetValues(object self, ...)
  72. {
  73.     va_list    _rest_;
  74.     va_start(_rest_, self);
  75.     return LinkObject_ivm_vGetValues(self, _rest_);
  76. }
  77.  
  78.  
  79.  
  80. #line 50 "linkobj.d"
  81. imeth objrtn LinkObject_im_gAddFirst(object self, object obj)
  82. { 
  83.     object lnk; 
  84.  
  85.     ChkArgNul(obj, 2); 
  86.     lnk = gNewWithObj(LinkValue, obj); 
  87.  
  88.     gAddAfter(self, lnk); 
  89.     return self; 
  90. } 
  91.  
  92. imeth objrtn LinkObject_im_gFirst(object self)
  93. { 
  94.  
  95.     object lnk = FIRST(self); 
  96.     return lnk ? gValue(lnk) : NULLOBJ; 
  97. } 
  98.  
  99. imeth objrtn LinkObject_im_gAddLast(object self, object obj)
  100. { 
  101.     object lnk; 
  102.  
  103.     ChkArgNul(obj, 2); 
  104.     lnk = gNewWithObj(LinkValue, obj); 
  105.  
  106.     gAddBefore(self, lnk); 
  107.     return self; 
  108. } 
  109.  
  110. imeth objrtn LinkObject_im_gLast(object self)
  111. { 
  112.  
  113.     object lnk = LAST(self); 
  114.     return lnk ? gValue(lnk) : NULLOBJ; 
  115. } 
  116.  
  117. imeth objrtn LinkObject_im_gSequence(object self)
  118. { 
  119.     return gNewWithObj(LinkObjectSequence, FIRST(self)); 
  120. } 
  121.  
  122. imeth objrtn LinkObject_im_gSequenceLinks(object self)
  123. { 
  124.     return gNewWithObj(LinkSequence, FIRST(self)); 
  125. } 
  126.  
  127. imeth objrtn LinkObject_im_gNth(object self, int idx)
  128. { 
  129.     object r = oSuper(LinkObject_c, gNth, self)(self, idx); 
  130.     return r ? gValue(r) : NULLOBJ; 
  131. } 
  132.  
  133.  
  134. #line 135 "linkobj.c"
  135.  
  136. objrtn    LinkObject_initialize(void)
  137. {
  138.     static  CRITICALSECTION  cs;
  139.     static  int volatile once = 0;
  140.  
  141.     ENTERCRITICALSECTION(_CI_CS_);
  142.     if (!once) {
  143.         INITIALIZECRITICALSECTION(cs);
  144.         once = 1;
  145.     }
  146.     LEAVECRITICALSECTION(_CI_CS_);
  147.  
  148.     ENTERCRITICALSECTION(cs);
  149.  
  150.     if (LinkObject_c) {
  151.         LEAVECRITICALSECTION(cs);
  152.         return LinkObject_c;
  153.     }
  154.     INHIBIT_THREADER;
  155.     LinkList_initialize();
  156.     if (LinkObject_c)  {
  157.         ENABLE_THREADER;
  158.         LEAVECRITICALSECTION(cs);
  159.         return LinkObject_c;
  160.     }
  161.     LinkObject_c = gNewClass(Class, "LinkObject", 0, 0, LinkList, END);
  162.     cvMethodFor(LinkObject, vMakeList, LinkObject_cvm_vMakeList, LinkObject_cfm_vMakeList);
  163.     iMethodFor(LinkObject, gAddFirst, LinkObject_im_gAddFirst);
  164.     iMethodFor(LinkObject, gFirst, LinkObject_im_gFirst);
  165.     iMethodFor(LinkObject, gLast, LinkObject_im_gLast);
  166.     iMethodFor(LinkObject, gSequence, LinkObject_im_gSequence);
  167.     ivMethodFor(LinkObject, vGetValues, LinkObject_ivm_vGetValues, LinkObject_ifm_vGetValues);
  168.     iMethodFor(LinkObject, gSequenceLinks, LinkObject_im_gSequenceLinks);
  169.     iMethodFor(LinkObject, gAddLast, LinkObject_im_gAddLast);
  170.     iMethodFor(LinkObject, gNth, LinkObject_im_gNth);
  171.  
  172.     ENABLE_THREADER;
  173.  
  174.     LEAVECRITICALSECTION(cs);
  175.  
  176.     return LinkObject_c;
  177. }
  178.  
  179.  
  180.  
  181.